home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / sal100.zip / MERGE.SRC < prev    next >
Text File  |  1994-11-14  |  437b  |  25 lines
  1.     int i;
  2.     int j;
  3.     int gap;
  4.     int k;
  5.  
  6.     char x;
  7.     char a[5];
  8.  
  9.     a[0] = 9; a[1] = 5; a[2] = 3; a[3] = 2; a[4] = 1;
  10.  
  11.     for (k=0; k < 5; k++)
  12.     {
  13.       gap = a[k];
  14.  
  15.       for (i=gap; i < ARRAYSIZE; i++)
  16.       {
  17.         x = GetNumber(i);
  18.         for (j=i-gap; x < GetNumber(j) && j >= 0; j=j-gap)
  19.         {
  20.           SetNumber(j+gap,GetNumber(j));
  21.         }
  22.       SetNumber(j+gap,x);
  23.       }
  24.     }
  25.